perm filename O[TLC,MUS]2 blob sn#077180 filedate 1973-12-12 generic text, type T, neo UTF8
00100		INTEGER C,EC,PRS,WC,HC,CT,DC
00200	C  GOOD-LOOKS PROGRAM  --  TYPE X TO BACKUP
00300		INTEGER DL,SL,HX,WL
00400	11	FORMAT(A1)
00500	1	FORMAT(' LEGS? GOOD OR BAD?  ',$)
00600	12	TYPE 1
00700		ACCEPT 11,L
00800		IF(L.EQ.'G')GO TO 16
00900	
01000	2	FORMAT(' THIGHS?  ',$)
01100	13	TYPE 2
01200		ACCEPT 11,T
01300		IF(T.EQ.'X')GO TO 12
01400	
01500	3	FORMAT(' KNEES?  ',$)
01600	14	TYPE 3
01700		ACCEPT 11,K
01800		IF(K.EQ.'X')GO TO 13
01900	
02000	4	FORMAT(' CALVES?  ',$)
02100	15	TYPE 4
02200		ACCEPT 11,C
02300		IF(C.EQ.'X')GO TO 14
02400	
02500	5	FORMAT(' ARMS?  ',$)
02600	16	TYPE 5
02700		ACCEPT 11,A
02800		IF(A.EQ.'X')GO TO 15
02900	
03000	6	FORMAT(' SHOULDERS? GOOD, WIDE OR NARROW?  ',$)
03100	17	TYPE 6
03200		ACCEPT 11,S
03300		IF(S.EQ.'X')GO TO 16
03400	
03500	7	FORMAT(' WAIST? GOOD OR WIDE?  ',$)
03600	18	TYPE 7
03700		ACCEPT 11,W
03800	156	IF(W.EQ.'C')WC=1
03900		IF(W.EQ.'F')WC=2
04000		IF(W.EQ.'W')WC=3
04100		IF(W.EQ.'L')WC=4
04200		GO TO(700,701,702,703),WC
04300	704	FORMAT(' <<BRIGHT DARK. '/)
04400	700	TYPE 704
04500		GO TO 157
04600	705	FORMAT(' <<BRIGHT. '/)
04700	701	TYPE 705
04800		GO TO 157
04900	706	FORMAT(' <<OVERCOAT,BOOTS. '/)
05000	702	TYPE 706
05100		GO TO 157
05200	707	FORMAT(' << WARM SWEATERS. '/)
05300	703	TYPE 707
05400		GO TO 157
05500	157	IF(J.EQ.'S')J=1
05600		IF(J.EQ.'L')J=2
05700		IF(J.EQ.'C')J=3
05800		GO TO(708,709,800),J
05900	801	FORMAT(' <<LINES AND COLORS SHARP. '/)
06000	708	TYPE 801
06100		GO TO 158
06200	902	FORMAT(' <<LINES AND COLORS EASY. '/)
06300	709	TYPE 802
06400		GO TO 158
06500	803	FORMAT(' <<COMFORTABLE COLORS AND LINES. '/)
06600	800	TYPE803
06700		GO TO 158
06800		IF(W.EQ.'X')GO TO 17
06900	
07000	8	FORMAT(' HIPS? GOOD, WIDE OR NARROW?  ',$)
07100	19	TYPE 8
07200		ACCEPT 11,H
07300		IF(H.EQ.'X')GO TO 18
07400	
07500	9	FORMAT(' BUST? GOOD, BIG OR SMALL?  ',$)
07600	20	TYPE 9
07700		ACCEPT 11,B
07800		IF(B.EQ.'X')GO TO 19
07900	
08000	10	FORMAT(' NECK? GOOD, LONG OR SHORT?  ',$)
08100		TYPE 10
08200		ACCEPT 11,N
08300	111	FORMAT(' PHYSICALLY? MED,BIG OR TINY? ',$)
08400		TYPE 111
08500		ACCEPT 11,P
08600		IF(P.EQ.'X')GO TO 10
08700	112	FORMAT(' SKIN? WHT,BLK,RED OR YEL? ',$)
08800		TYPE 112
08900		ACCEPT11,S
09000		IF(S.EQ.'X')GO TO 111
09100	113	FORMAT('EYES? BLU,BRN,GRN OR YEL? ',$)
09200		TYPE 113
09300		ACCEPT 11,E
09400		IF(E.EQ.'X')GO TO 112
09500	114	FORMAT(' HAIR? BLD,BLK,BRN OR RED? ',$)
09600		TYPE 114
09700		ACCEPT 11,H
09800		IF(H.EQ.'X')GO TO 113
09900	115	FORMAT(' TIME? AM,NN,PM,NT?       ',$)
10000		TYPE 115
10100		ACCEPT 11,T
10200		IF(T.EQ.'X')GO TO 114
10300	116	FORMAT(' WEATHER? CLR,FOG,WET OR CLD? ',$)
10400		TYPE 116
10500		ACCEPT 11,WR
10600		IF(WR.EQ.'X')GO TO 115
10700	117	FORMAT(' TEMP? HOT,COLD OR MED? ',$)
10800		TYPE 117
10900		ACCEPT 11,TP
11000		IF(TP.EQ.'X')GO TO 116
11100	118	FORMAT(' JOB? STRAIT,LOOSE OR CASUAL? ',$)
11200		TYPE 118
11300		ACCEPT 11,J
11400		IF(J.EQ.'X')GO TO 117
11500	150	IF(P.EQ.'MED')GO TO 151
11600	C JUMP IF MEDIUM SIZE PERSON
11700		IF(P.EQ.'B')PRS=1
11800		IF(P.EQ.'T')PRS=2
11900		GO TO (71,72),PRS
12000	73	FORMAT(' <<WEAR BIG PRINTS. '/)
12100	71	TYPE 73
12200		GO TO 151
12300	175	FORMAT(' <<WEAR TINY PRINTS. '/)
12400	72	TYPE 175
12500		GO TO 151
12600	151	IF(S.EQ.'W')C=1
12700		IF(S.EQ.'B')C=2
12800		IF(S.EQ.'Y')C=3
12900		IF(S.EQ.'R')C=4
13000		GO TO (74,75,76,77),C
13100	79	FORMAT(' <<ALL COLORS,ESPECIALLY DARK. ')
13200	74	TYPE 79
13300		GO TO 152
13400	80	FORMAT(' <<ALL COLORS,ESPECIALLY LIGHT. ')
13500	75	TYPE80
13600		GO TO 152
13700	81	FORMAT(' <<NO WHT,NO COOL COLORS, ')
13800	76	TYPE 81
13900		GO TO 152
14000	82	FORMAT(' <<ALL COLORS?, ')
14100	77	TYPE 82
14200		GO TO 152
14300	152	IF(E.EQ.'B')EC=1
14400		IF(E.EQ.'T')EC=2
14500		IF(E.EQ.'G')EC=3
14600		IF(E.EQ.'Y')EC=4
14700		GO TO(84,85,86,87),EC
14800	88	FORMAT(' <<BLUE ESPECIALLY,ALLCOLORS?, ')
14900	84	TYPE 88
15000		GO TO 153
15100	89	FORMAT(' <<ESPECAILLY TAN,ALL COLORS?, ')
15200	85	TYPE 89
15300		GO TO 153
15400	90	FORMAT(' <<ESPECIALLY GREEN,ALL COLORS?,')
15500	86	TYPE 90
15600		GO TO 153
15700	91	FORMAT(' <<ESPECIALLY  GOLD, ALL COLORS?,')
15800	87	TYPE 91
15900		GO TO 153
16000	153	IF(H.EQ.'Y')HC=1
16100		IF(H.EQ.'B.')HC=2
16200		IF(H.EQ.'R')HC=3
16300		IF(H.EQ.'N')HC=4
16400		GO  TO(500,501,502,503),HC
16500	504	TYPE 500
16600	500	FORMAT(' <<WEAR BLACK AND PASTEL COLORS. ')
16700	505	FORMAT(' <<WEAR WHITE,RED AND GREEN. '/)
16800	501	TYPE505
16900		GO TO 154
17000	506	FORMAT(' <<WEAR GREEN AND BROWN. '/)
17100	502	TYPE 506
17200		GO TO 154
17300	507	FORMAT(' <<WEAR GREEN AND LIGHT WARM COLORS. '/)
17400	503	TYPE 507
17500		GO TO 154
17600	154	IF(T.EQ.'A')CT=1
17700		IF(T.EQ.'N')CT=2
17800	
17900		IF(T.EQ.'P')CT=3
18000	        IF(T.EQ.'M')CT=4
18100		GO TO(508,509,600,601),CT
18200	602	FORMAT(' <<WEAR FRESH,SOFT COLORS AND LINES. '/)
18300	508	TYPE602
18400		GO TO 155
18410	900	FORMAT(' <<APPETIZING COLORS. '/)
18420	509	TYPE800
18421		GO TO 155
18422	901	FORMAT(' <<WARM COLORS. '/)
18423	600	TYPE 801
18424		GO TO 155
18425	802	FORMAT(' <<BRIGHT LIGHT COLORS. '/)
18426	601	TYPE 802
18427		GO TO 155
18500		DL=1
18600	155	IF(D.EQ.'H')W=1
18700		IF(D.EQ.'C')W=2
18800		GO TO(606,607),DC
18900	608	FORMAT(' <<GO SLEEVELESS,BRING LIGHT WARP. '/)
19000	606	TYPE 608
19100		GO TO 156
19200	609	FORMAT(' <<WEAR LONG SLEEVES,HI NECK AND WARM WARP. '/)
19300	607	TYPE 609
19400		GO TO 156
19500		IF(L.EQ.'G')GO TO 21
19600	C  JUMP IF GOOD LEGS
19700		IF(T.EQ.'B')DL=2
19800		IF(K.EQ.'B')DL=3
19900		IF(C.EQ.'B')DL=4
20000	21	SL=1
20100		IF(S.EQ.'N')SL=3
20200	C   SHOULDER LINE BEST
20300		IF(S.NE.'W')GO TO 22
20400		SL=2
20500	C   SLEEVELESS BEST, NO SHOULDER LINE
20600		IF(A.EQ.'B')SL=4
20700	C   LONG SLEEVES,NO SHOULDER LINE
20800	41	FORMAT(/' << SKIRT SHOULD BE '$)
20900	22	TYPE 41
21000		GO TO(23,24,25,26),DL
21100	
21200	27	FORMAT('+SHORT.'/)
21300	23	TYPE 27
21400		GO TO 28
21500	
21600	29	FORMAT('+MEDIUM SHORT.'/)
21700	24	TYPE 29
21800		GO TO 28
21900	
22000	30	FORMAT('+MEDIUM LONG.'/)
22100	25	TYPE 30
22200		GO TO 28
22300	
22400	31	FORMAT('+LONG.'/)
22500	26	TYPE 31
22600	
22700	28	GO TO(32,33,34,35),SL
22800	
22900	36	FORMAT(' << ANY SHOULDER CUT.'/)
23000	32	TYPE 36
23100		GO TO 37
23200	
23300	38	FORMAT(' << SLEEVELESS IS BEST.'/)
23400	33	TYPE 38
23500		GO TO 37
23600	
23700	39	FORMAT(' << USE SHOULDER LINE.'/)
23800	34	TYPE 39
23900		GO TO 37
24000	
24100	40	FORMAT(' << LONG SLEEVES BUT NO SHOULDER LINE.'/)
24200	35	TYPE 40
24300	
24400	37	WL=0
24500		IF(W.EQ.'W')WL=1
24600		IF(W.EQ.'N')WL=2
24700		GO TO(42,44),WL
24800		GO TO 45
24900	141	FORMAT(' <<USE NO WAISTLINE.'/)
25000	42	TYPE141
25100		GO TO 45
25200	43	FORMAT(' <<USE WAISTLINE.'/)
25300	44 	TYPE42
25400		GO TO 45
25500	45	IF(H.EQ.'G')GO TO 200
25600		IF(H.EQ.'W')HX=1
25700		IF(H.EQ.'N')HX=2
25800		GO TO (47,490),HX
25900	47	IF(B.EQ.'S')TYPE 48
26000	48	FORMAT(' <<USE EMPIRE WAIST.'/)
26100	56	FORMAT(' USE NO EMPIRE.'/)
26200		IF(B.EQ.'B')TYPE 56
26300		IF(B.EQ.'G')TYPE 493
26400	493	FORMAT(' << USE NO HIP-LINE.'/)
26500		GO TO 200
26600	491	FORMAT(' <<USE HIP-LINE'/)
26700	490	TYPE 491
26800	200	IF(A.EQ.'G')GO TO 201
26900		IF(S.NE.'N')TYPE 492
27000	492	FORMAT(' <<LONG SLEEVES.'/)
27100		IF(S.EQ.'N')TYPE 49
27200	49	FORMAT(' <<USE 3/4 SLEEVE.'/)
27300		GO TO 201
27400	203	TYPE 33
27500	201	IF(B.EQ.'G')GO TO 52
27600		IF(B.EQ.'B')TYPE 51
27700	51	FORMAT(' << NO EMPIRE WAIST.'/)
27800		IF(B.NE.'S')GO TO 202
27900		IF(S.EQ.'W')TYPE 48
28000		IF(S.EQ.'N')TYPE 52
28100	52	FORMAT(' <<USE SHOULDER LINE UNDER-GATHERING.'/)
28200		IF(N.EQ.'L') TYPE 53
28300		IF(N.EQ.'S') TYPE 54
28400	53	FORMAT(' <<USE HI NECKLINE.'/)
28500	54	FORMAT(' <<USE LOW NECKLINE.'/)
28600	202	CALL EXIT
28650	158	CALL EXIT
28700		END